home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ADA Programming Guide
/
ADA Programming Guide.iso
/
ada_lrm
/
lr3bva.src
< prev
next >
Wrap
Text File
|
1996-01-30
|
384b
|
19 lines
with TEXT_IO; use TEXT_IO;
package body MACHINE_SPECIFIC is
procedure CLS is
-- author: George C. Harrison
begin
null;
PUT_LINE(ASCII.ESC & "[2J");
PUT_LINE(ASCII.ESC & "[H");
PUT_LINE(ASCII.ESC & "[?5l");
end CLS;
end MACHINE_SPECIFIC;